Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/dsp/dspgroup/macrosrc.arc/UNTIL.ASM

Assembly Source File | 1983-11-17 | 1.6 KB | 66 lines

*UNTIL LOOP MACRO
*USES: AC AND LET MACRO
*
*      UNTIL COND
*           [CONDITION COMP IN AC]
*      DO
*           [LOOP BODY-DONE IF AC TEST AT DO IS FALSE]
*      NEXT
*OR:
*      UNTIL COND,<LET EXPR>
*      DO
*           [LOOP BODY-DONE IF <LET EXPR> TEST IS FALSE]
*      NEXT
*
*CONDITIONS (COND) ARE THE SAME AS IN IF

       COPY MACROS.NEXT
       COPY MACROS.DO

UNTIL  $MACRO          C,EE   START UNTIL CONDITIONAL
       $VAR I,E,Q,W,T
       $ASG '$$LPS' TO I.S    GET CNTXT VAR
       $ASG I.SV+1 TO I.SV    PUSH CNTXT
       $ASG '$$LP' TO Q.S
       $ASG :Q::I.SV: TO I.SS MAKE THIS CNTXT NAME
       $ASG '$$LAB' TO E.S    GET UIQUE LABEL
       $ASG E.SV+1 TO E.SV    INCR
       $ASG :I.SS: TO W.S     MAKE THIS CNTXT
       $ASG E.SV TO W.SV      SAVE LABEL IN THIS CNTXT
       $ASG 'EQ' TO T.S
       $IF  C.SV=T.SV
       $ASG 'BZ' TO W.SS
       $ELSE
       $ASG 'NE' TO T.S
       $IF  C.SV=T.SV
       $ASG 'BNZ' TO W.SS
       $ELSE
       $ASG 'LT' TO T.S
       $IF  C.SV=T.SV
       $ASG 'BLZ' TO W.SS
       $ELSE
       $ASG 'GT' TO T.S
       $IF  C.SV=T.SV
       $ASG 'BGZ' TO W.SS
       $ELSE
       $ASG 'LE' TO T.S
       $IF  C.SV=T.SV
       $ASG 'BLEZ' TO W.SS
       $ELSE
       $ASG 'GE' TO T.S
       $IF  C.SV=T.SV
       $ASG 'BGEZ' TO W.SS
       $ELSE
       $ASG :C.S: TO W.SS
       $ENDIF
       $ENDIF
       $ENDIF
       $ENDIF
       $ENDIF
       $ENDIF
I$:W.SV: EQU $                TOP OF LOOP
       $IF  EE.L#=0
       LET  :EE:              DO LET
       $ENDIF
       $END